home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / golatex.taz / golatex / mf / go2white.mf < prev    next >
Encoding:
Text File  |  1992-11-16  |  41.4 KB  |  1,448 lines
  1. mode_setup;
  2.  
  3. define_pixels(size);
  4. define_pixels(line_thickness,border_line_thickness);
  5. define_pixels(dig_h,dig_w,dig_pen);
  6.  
  7. picture digit[];
  8. picture white_circle;
  9.  
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11.  
  12. def digit_zero =
  13.   currentpicture := nullpicture;
  14.   pickup pencircle scaled dig_pen;
  15.   lft x1=0; y1=.5dig_h;
  16.   x2=.5dig_w; top y2=dig_h;
  17.   rt x3=dig_w; y3=.5dig_h;
  18.   x4=.5dig_w; bot y4=0;
  19.   draw z1...z2...z3...z4...cycle;
  20.   digit[0] := currentpicture;
  21.   clearxy; clearit; clearpen;
  22. enddef;
  23.  
  24. def digit_one =
  25.   currentpicture := nullpicture;
  26.   pickup pencircle scaled dig_pen;
  27.   x1=.5dig_w; bot y1=0;
  28.   x2=.5dig_w; top y2=dig_h;
  29.   draw z1--z2;
  30.   digit[1] := currentpicture;
  31.   clearxy; clearit; clearpen;
  32. enddef;
  33.  
  34. def digit_two =
  35.   currentpicture := nullpicture;
  36.   pickup pencircle scaled dig_pen;
  37.   lft x1=0; y1=.75dig_h;
  38.   x2=.5dig_w; top y2=dig_h;
  39.   rt x3=.8dig_w; y3=.9dig_h;
  40.   lft x4=0; bot y4=0;
  41.   draw z1{up}...z2...z3..{(-.8dig_w,-dig_h)}z4;
  42.   z5=z4;
  43.   rt x6=dig_w; bot y6=0;
  44.   draw z5--z6;
  45.   digit[2] := currentpicture;
  46.   clearxy; clearit; clearpen;
  47. enddef;
  48.  
  49. def digit_three =
  50.   currentpicture := nullpicture;
  51.   pickup pencircle scaled dig_pen;
  52.   lft x1=.08dig_w; y1=.8dig_h;
  53.   x2=.5dig_w; top y2=dig_h; 
  54.   rt x3=.92dig_w; y3=y1;
  55.   z4=(.5dig_w,.52dig_h);
  56.   rt x5=dig_w; y5=.2dig_h;
  57.   x6=.65dig_w; bot y6=0;
  58.   lft x7=0; y7=y5;
  59.   draw z1{up}..z2..z3..{left}z4{right}..z5..z6...{up}z7;
  60.   digit[3] := currentpicture;
  61.   clearxy; clearit; clearpen;
  62. enddef;
  63.  
  64. def digit_four =
  65.   currentpicture := nullpicture;
  66.   pickup pencircle scaled dig_pen;
  67.   x1=.75dig_w; bot y1=0;
  68.   x2=x1; top y2=dig_h;
  69.   lft x3=0; y3=.3dig_h;
  70.   rt x4=dig_w; y4=y3;
  71.   draw z1--z2--z3--z4;
  72.   digit[4] := currentpicture;
  73.   clearxy; clearit; clearpen;
  74. enddef;
  75.  
  76. def digit_five =
  77.   currentpicture := nullpicture;
  78.   pickup pencircle scaled dig_pen;
  79.   rt x1=.95dig_w; top y1=dig_h;
  80.   lft x2=.05dig_w; y2=y1;
  81.   lft x3=0; y3=.45dig_h;
  82.   z4=(.5dig_w,.6dig_h);
  83.   rt x5=dig_w; y5=.3dig_h;
  84.   x6=.65dig_w; bot y6=0;
  85.   lft x7=0; y7=.15dig_h;
  86.   draw z1--z2--z3{up}..z4..z5..z6...{up}z7;
  87.   digit[5] := currentpicture;
  88.   clearxy; clearit; clearpen;
  89. enddef;
  90.  
  91. def digit_six =
  92.   currentpicture := nullpicture;
  93.   pickup pencircle scaled dig_pen;
  94.   rt x1=dig_w; y1=.8dig_h;
  95.   x2=.45dig_w; top y2=dig_h;
  96.   lft x3=0; y3=.5dig_h;
  97.   x4=.5dig_w; bot y4=0;
  98.   rt x5=dig_w; y5=.3dig_h;
  99.   z6=(.53dig_w,.55dig_h);
  100.   z7=(.03dig_w+.6dig_pen,.25dig_h);
  101.   draw z1{up}...z2...z3...z4...z5...{left}z6{left}...{(1,-10)}z7;
  102.   digit[6] := currentpicture;
  103.   clearxy; clearit; clearpen;
  104. enddef;
  105.  
  106. def digit_seven =
  107.   currentpicture := nullpicture;
  108.   pickup pencircle scaled dig_pen;
  109.   lft x1=0; top y1=dig_h;
  110.   rt x2=dig_w; y2=y1;
  111.   lft x3=.2dig_w; bot y3=0;
  112.   draw z1--z2--z3;
  113.   digit[7] := currentpicture;
  114.   clearxy; clearit; clearpen;
  115. enddef;
  116.  
  117. def digit_eight =
  118.   currentpicture := nullpicture;
  119.   pickup pencircle scaled dig_pen;
  120.   lft x1=.08dig_w; y1=.75dig_h;
  121.   x2=.5dig_w; top y2=dig_h;
  122.   rt x3=.92dig_w; y3=y1;
  123.   z4=(.5dig_w,.55dig_h);
  124.   rt x5=dig_w; y5=.25dig_h;
  125.   x6=.5dig_w; bot y6=0;
  126.   lft x7=0; y7=y5;
  127.   draw z1...z2...z3...z4...cycle; 
  128.   draw z4...z5...z6...z7...cycle;
  129.   digit[8] := currentpicture;
  130.   clearxy; clearit; clearpen;
  131. enddef;
  132.  
  133. def digit_nine =
  134.   currentpicture := nullpicture;
  135.   currentpicture := digit[6] rotated 180;
  136.   digit[9] := currentpicture shifted (dig_w,dig_h);
  137.   clearxy; clearit; clearpen;
  138. enddef;
  139.  
  140. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  141.  
  142. dig_w := .7dig_w;
  143. dig_pen := .7dig_pen;
  144.  
  145. dig_w := .6dig_w;
  146. dig_pen := .7dig_pen;
  147.  
  148. digit_zero; digit_one; digit_two; digit_three; digit_four;
  149. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  150.  
  151. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  152.  
  153. beginchar(0,24/22size#,23/22size#,1/22size#); "pion bialy z 128";
  154.   pickup pencircle scaled line_thickness;
  155.   % pickup pencircle scaled 2/10size#;
  156.   lft x1=1/24w; y1=11/24w;
  157.   rt x2=23/24w; y2=11/24w;
  158.   draw z1..z2..cycle;
  159.   white_circle := currentpicture;
  160.   currentpicture := white_circle 
  161.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  162.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  163.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  164. showit;
  165. endchar;
  166.  
  167. % stop"";
  168.  
  169. beginchar(1,24/22size#,23/22size#,1/22size#); "pion bialy z 129";
  170.   currentpicture := white_circle 
  171.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  172.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  173.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  174. showit;
  175. endchar;
  176.  
  177. % stop"";
  178.  
  179. beginchar(2,24/22size#,23/22size#,1/22size#); "pion bialy z 130";
  180.   currentpicture := white_circle 
  181.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  182.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  183.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  184. showit;
  185. endchar;
  186.  
  187. % stop"";
  188.  
  189. beginchar(3,24/22size#,23/22size#,1/22size#); "pion bialy z 131";
  190.   currentpicture := white_circle 
  191.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  192.        + digit[3] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  193.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  194. showit;
  195. endchar;
  196.  
  197. % stop"";
  198.  
  199. beginchar(4,24/22size#,23/22size#,1/22size#); "pion bialy z 132";
  200.   currentpicture := white_circle 
  201.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  202.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  203.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  204. showit;
  205. endchar;
  206.  
  207. % stop"";
  208.  
  209. beginchar(5,24/22size#,23/22size#,1/22size#); "pion bialy z 133";
  210.   currentpicture := white_circle 
  211.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  212.        + digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  213.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  214. showit;
  215. endchar;
  216.  
  217. % stop"";
  218.  
  219. beginchar(6,24/22size#,23/22size#,1/22size#); "pion bialy z 134";
  220.   currentpicture := white_circle 
  221.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  222.        + digit[3] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  223.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  224. showit;
  225. endchar;
  226.  
  227. % stop"";
  228.  
  229. beginchar(7,24/22size#,23/22size#,1/22size#); "pion bialy z 135";
  230.   currentpicture := white_circle 
  231.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  232.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  233.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  234. showit;
  235. endchar;
  236.  
  237. % stop"";
  238.  
  239. beginchar(8,24/22size#,23/22size#,1/22size#); "pion bialy z 136";
  240.   currentpicture := white_circle 
  241.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  242.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  243.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  244. showit;
  245. endchar;
  246.  
  247. % stop"";
  248.  
  249. beginchar(9,24/22size#,23/22size#,1/22size#); "pion bialy z 137";
  250.   currentpicture := white_circle 
  251.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  252.        + digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  253.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  254. showit;
  255. endchar;
  256.  
  257. % stop"";
  258.  
  259. beginchar(10,24/22size#,23/22size#,1/22size#); "pion bialy z 138";
  260.   currentpicture := white_circle 
  261.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  262.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  263.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  264. showit;
  265. endchar;
  266.  
  267. % stop"";
  268.  
  269. beginchar(11,24/22size#,23/22size#,1/22size#); "pion bialy z 139";
  270.   currentpicture := white_circle 
  271.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  272.        + digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  273.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  274. showit;
  275. endchar;
  276.  
  277. % stop"";
  278.  
  279. beginchar(12,24/22size#,23/22size#,1/22size#); "pion bialy z 140";
  280.   currentpicture := white_circle 
  281.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)  
  282.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  283.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  284. showit;
  285. endchar;
  286.  
  287. % stop"";
  288.  
  289. beginchar(13,24/22size#,23/22size#,1/22size#); "pion bialy z 141";
  290.   currentpicture := white_circle 
  291.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  292.        + digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h)
  293.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  294. showit;
  295. endchar;
  296.  
  297. % stop"";
  298.  
  299. beginchar(14,24/22size#,23/22size#,1/22size#); "pion bialy z 142";
  300.   currentpicture := white_circle 
  301.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)  
  302.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  303.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  304. showit;
  305. endchar;
  306.  
  307. % stop"";
  308.  
  309. beginchar(15,24/22size#,23/22size#,1/22size#); "pion bialy z 143";
  310.   currentpicture := white_circle 
  311.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  312.        + digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h)
  313.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  314. showit;
  315. endchar;
  316.  
  317. % stop"";
  318.  
  319. beginchar(16,24/22size#,23/22size#,1/22size#); "pion bialy z 144";
  320.   currentpicture := white_circle 
  321.        + digit[1] shifted (.5w-1.65dig_w,11/24w-.5dig_h) 
  322.        + digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  323.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  324. showit;
  325. endchar;
  326.  
  327. % stop"";
  328.  
  329. beginchar(17,24/22size#,23/22size#,1/22size#); "pion bialy z 145";
  330.   currentpicture := white_circle 
  331.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  332.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  333.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  334. showit;
  335. endchar;
  336.  
  337. % stop"";
  338.  
  339. beginchar(18,24/22size#,23/22size#,1/22size#); "pion bialy z 146";
  340.   currentpicture := white_circle 
  341.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  342.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  343.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  344. showit;
  345. endchar;
  346.  
  347. % stop"";
  348.  
  349. beginchar(19,24/22size#,23/22size#,1/22size#); "pion bialy z 147";
  350.   currentpicture := white_circle 
  351.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  352.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  353.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  354. showit;
  355. endchar;
  356.  
  357. % stop"";
  358.  
  359. beginchar(20,24/22size#,23/22size#,1/22size#); "pion bialy z 148";
  360.   currentpicture := white_circle 
  361.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  362.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  363.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  364. showit;
  365. endchar;
  366.  
  367. % stop"";
  368.  
  369. beginchar(21,24/22size#,23/22size#,1/22size#); "pion bialy z 149";
  370.   currentpicture := white_circle 
  371.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  372.        + digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  373.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  374. showit;
  375. endchar;
  376.  
  377. % stop"";
  378.  
  379. beginchar(22,24/22size#,23/22size#,1/22size#); "pion bialy z 150";
  380.   currentpicture := white_circle 
  381.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  382.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  383.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  384. showit;
  385. endchar;
  386.  
  387. % stop"";
  388.  
  389. beginchar(23,24/22size#,23/22size#,1/22size#); "pion bialy z 151";
  390.   currentpicture := white_circle 
  391.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  392.        + digit[5] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  393.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  394. showit;
  395. endchar;
  396.  
  397. % stop"";
  398.  
  399. beginchar(24,24/22size#,23/22size#,1/22size#); "pion bialy z 152";
  400.   currentpicture := white_circle 
  401.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  402.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  403.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  404. showit;
  405. endchar;
  406.  
  407. % stop"";
  408.  
  409. beginchar(25,24/22size#,23/22size#,1/22size#); "pion bialy z 153";
  410.   currentpicture := white_circle 
  411.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  412.        + digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  413.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  414. showit;
  415. endchar;
  416.  
  417. % stop"";
  418.  
  419. beginchar(26,24/22size#,23/22size#,1/22size#); "pion bialy z 154";
  420.   currentpicture := white_circle 
  421.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  422.        + digit[5] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  423.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  424. showit;
  425. endchar;
  426.  
  427. % stop"";
  428.  
  429. beginchar(27,24/22size#,23/22size#,1/22size#); "pion bialy z 155";
  430.   currentpicture := white_circle 
  431.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  432.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  433.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  434. showit;
  435. endchar;
  436.  
  437. % stop"";
  438.  
  439. beginchar(28,24/22size#,23/22size#,1/22size#); "pion bialy z 156";
  440.   currentpicture := white_circle 
  441.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  442.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  443.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  444. showit;
  445. endchar;
  446.  
  447. % stop"";
  448.  
  449. beginchar(29,24/22size#,23/22size#,1/22size#); "pion bialy z 157";
  450.   currentpicture := white_circle 
  451.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  452.        + digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  453.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  454. showit;
  455. endchar;
  456.  
  457. % stop"";
  458.  
  459. beginchar(30,24/22size#,23/22size#,1/22size#); "pion bialy z 158";
  460.   currentpicture := white_circle 
  461.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  462.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  463.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  464. showit;
  465. endchar;
  466.  
  467. % stop"";
  468.  
  469. beginchar(31,24/22size#,23/22size#,1/22size#); "pion bialy z 159";
  470.   currentpicture := white_circle 
  471.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  472.        + digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  473.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  474. showit;
  475. endchar;
  476.  
  477. % stop"";
  478.  
  479. beginchar(32,24/22size#,23/22size#,1/22size#); "pion bialy z 160";
  480.   currentpicture := white_circle 
  481.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  482.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  483.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  484. showit;
  485. endchar;
  486.  
  487. % stop"";
  488.  
  489. beginchar(33,24/22size#,23/22size#,1/22size#); "pion bialy z 161";
  490.   currentpicture := white_circle 
  491.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  492.        + digit[6] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  493.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  494. showit;
  495. endchar;
  496.  
  497. % stop"";
  498.  
  499. beginchar(34,24/22size#,23/22size#,1/22size#); "pion bialy z 162";
  500.   currentpicture := white_circle 
  501.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  502.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  503.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  504. showit;
  505. endchar;
  506.  
  507. % stop"";
  508.  
  509. beginchar(35,24/22size#,23/22size#,1/22size#); "pion bialy z 163";
  510.   currentpicture := white_circle 
  511.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  512.        + digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  513.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  514. showit;
  515. endchar;
  516.  
  517. % stop"";
  518.  
  519. beginchar(36,24/22size#,23/22size#,1/22size#); "pion bialy z 164";
  520.   currentpicture := white_circle 
  521.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  522.        + digit[6] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  523.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  524. showit;
  525. endchar;
  526.  
  527. % stop"";
  528.  
  529. beginchar(37,24/22size#,23/22size#,1/22size#); "pion bialy z 165";
  530.   currentpicture := white_circle 
  531.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  532.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  533.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  534. showit;
  535. endchar;
  536.  
  537. % stop"";
  538.  
  539. beginchar(38,24/22size#,23/22size#,1/22size#); "pion bialy z 166";
  540.   currentpicture := white_circle 
  541.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  542.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  543.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  544. showit;
  545. endchar;
  546.  
  547. % stop"";
  548.  
  549. beginchar(39,24/22size#,23/22size#,1/22size#); "pion bialy z 167";
  550.   currentpicture := white_circle 
  551.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  552.        + digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  553.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  554. showit;
  555. endchar;
  556.  
  557. % stop"";
  558.  
  559. beginchar(40,24/22size#,23/22size#,1/22size#); "pion bialy z 168";
  560.   currentpicture := white_circle 
  561.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  562.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  563.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  564. showit;
  565. endchar;
  566.  
  567. % stop"";
  568.  
  569. beginchar(41,24/22size#,23/22size#,1/22size#); "pion bialy z 169";
  570.   currentpicture := white_circle 
  571.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  572.        + digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  573.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  574. showit;
  575. endchar;
  576.  
  577. % stop"";
  578.  
  579. beginchar(42,24/22size#,23/22size#,1/22size#); "pion bialy z 170";
  580.   currentpicture := white_circle 
  581.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  582.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  583.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  584. showit;
  585. endchar;
  586.  
  587. % stop"";
  588.  
  589. beginchar(43,24/22size#,23/22size#,1/22size#); "pion bialy z 171";
  590.   currentpicture := white_circle 
  591.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  592.        + digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  593.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  594. showit;
  595. endchar;
  596.  
  597. % stop"";
  598.  
  599. beginchar(44,24/22size#,23/22size#,1/22size#); "pion bialy z 172";
  600.   currentpicture := white_circle 
  601.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  602.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  603.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  604. showit;
  605. endchar;
  606.  
  607. % stop"";
  608.  
  609. beginchar(45,24/22size#,23/22size#,1/22size#); "pion bialy z 173";
  610.   currentpicture := white_circle 
  611.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  612.        + digit[7] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  613.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  614. showit;
  615. endchar;
  616.  
  617. % stop"";
  618.  
  619. beginchar(46,24/22size#,23/22size#,1/22size#); "pion bialy z 174";
  620.   currentpicture := white_circle 
  621.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  622.        + digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  623.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  624. showit;
  625. endchar;
  626.  
  627. % stop"";
  628.  
  629. beginchar(47,24/22size#,23/22size#,1/22size#); "pion bialy z 175";
  630.   currentpicture := white_circle 
  631.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  632.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  633.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  634. showit;
  635. endchar;
  636.  
  637. % stop"";
  638.  
  639. beginchar(48,24/22size#,23/22size#,1/22size#); "pion bialy z 176";
  640.   currentpicture := white_circle 
  641.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  642.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  643.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  644. showit;
  645. endchar;
  646.  
  647. % stop"";
  648.  
  649. beginchar(49,24/22size#,23/22size#,1/22size#); "pion bialy z 177";
  650.   currentpicture := white_circle 
  651.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  652.        + digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h)
  653.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  654. showit;
  655. endchar;
  656.  
  657. % stop"";
  658.  
  659. beginchar(50,24/22size#,23/22size#,1/22size#); "pion bialy z 178";
  660.   currentpicture := white_circle 
  661.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  662.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  663.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  664. showit;
  665. endchar;
  666.  
  667. % stop"";
  668.  
  669. beginchar(51,24/22size#,23/22size#,1/22size#); "pion bialy z 179";
  670.   currentpicture := white_circle 
  671.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  672.        + digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  673.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  674. showit;
  675. endchar;
  676.  
  677. % stop"";
  678.  
  679. beginchar(52,24/22size#,23/22size#,1/22size#); "pion bialy z 180";
  680.   currentpicture := white_circle 
  681.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  682.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  683.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  684. showit;
  685. endchar;
  686.  
  687. % stop"";
  688.  
  689. beginchar(53,24/22size#,23/22size#,1/22size#); "pion bialy z 181";
  690.   currentpicture := white_circle 
  691.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  692.        + digit[8] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  693.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  694. showit;
  695. endchar;
  696.  
  697. % stop"";
  698.  
  699. beginchar(54,24/22size#,23/22size#,1/22size#); "pion bialy z 182";
  700.   currentpicture := white_circle 
  701.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  702.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  703.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  704. showit;
  705. endchar;
  706.  
  707. % stop"";
  708.  
  709. beginchar(55,24/22size#,23/22size#,1/22size#); "pion bialy z 183";
  710.   currentpicture := white_circle 
  711.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  712.        + digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  713.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  714. showit;
  715. endchar;
  716.  
  717. % stop"";
  718.  
  719. beginchar(56,24/22size#,23/22size#,1/22size#); "pion bialy z 184";
  720.   currentpicture := white_circle 
  721.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  722.        + digit[8] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  723.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  724. showit;
  725. endchar;
  726.  
  727. % stop"";
  728.  
  729. beginchar(57,24/22size#,23/22size#,1/22size#); "pion bialy z 185";
  730.   currentpicture := white_circle 
  731.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  732.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  733.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  734. showit;
  735. endchar;
  736.  
  737. % stop"";
  738.  
  739. beginchar(58,24/22size#,23/22size#,1/22size#); "pion bialy z 186";
  740.   currentpicture := white_circle 
  741.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  742.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  743.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  744. showit;
  745. endchar;
  746.  
  747. % stop"";
  748.  
  749. beginchar(59,24/22size#,23/22size#,1/22size#); "pion bialy z 187";
  750.   currentpicture := white_circle 
  751.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  752.        + digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  753.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  754. showit;
  755. endchar;
  756.  
  757. % stop"";
  758.  
  759. beginchar(60,24/22size#,23/22size#,1/22size#); "pion bialy z 188";
  760.   currentpicture := white_circle 
  761.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  762.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  763.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  764. showit;
  765. endchar;
  766.  
  767. % stop"";
  768.  
  769. beginchar(61,24/22size#,23/22size#,1/22size#); "pion bialy z 189";
  770.   currentpicture := white_circle 
  771.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  772.        + digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  773.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  774. showit;
  775. endchar;
  776.  
  777. % stop"";
  778.  
  779. beginchar(62,24/22size#,23/22size#,1/22size#); "pion bialy z 190";
  780.   currentpicture := white_circle 
  781.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  782.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  783.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  784. showit;
  785. endchar;
  786.  
  787. % stop"";
  788.  
  789. beginchar(63,24/22size#,23/22size#,1/22size#); "pion bialy z 191";
  790.   currentpicture := white_circle 
  791.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  792.        + digit[9] shifted (.5w-.55dig_w,11/24w-.5dig_h)  
  793.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  794. showit;
  795. endchar;
  796.  
  797. % stop"";
  798.  
  799. beginchar(64,24/22size#,23/22size#,1/22size#); "pion bialy z 192";
  800.   currentpicture := white_circle 
  801.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  802.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  803.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  804. showit;
  805. endchar;
  806.  
  807. % stop"";
  808.  
  809. beginchar(65,24/22size#,23/22size#,1/22size#); "pion bialy z 193";
  810.   currentpicture := white_circle 
  811.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  812.        + digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h)   
  813.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  814. showit;
  815. endchar;
  816.  
  817. % stop"";
  818.  
  819. beginchar(66,24/22size#,23/22size#,1/22size#); "pion bialy z 194";
  820.   currentpicture := white_circle 
  821.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  822.        + digit[9] shifted (.5w-.75dig_w,11/24w-.5dig_h)    
  823.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  824. showit;
  825. endchar;
  826.  
  827. % stop"";
  828.  
  829. beginchar(67,24/22size#,23/22size#,1/22size#); "pion bialy z 195";
  830.   currentpicture := white_circle 
  831.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  832.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)   
  833.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  834. showit;
  835. endchar;
  836.  
  837. % stop"";
  838.  
  839. beginchar(68,24/22size#,23/22size#,1/22size#); "pion bialy z 196";
  840.   currentpicture := white_circle 
  841.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  842.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  843.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  844. showit;
  845. endchar;
  846.  
  847. % stop"";
  848.  
  849. beginchar(69,24/22size#,23/22size#,1/22size#); "pion bialy z 197";
  850.   currentpicture := white_circle 
  851.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  852.        + digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h)   
  853.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  854. showit;
  855. endchar;
  856.  
  857. % stop"";
  858.  
  859. beginchar(70,24/22size#,23/22size#,1/22size#); "pion bialy z 198";
  860.   currentpicture := white_circle 
  861.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  862.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  863.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  864. showit;
  865. endchar;
  866.  
  867. % stop"";
  868.  
  869. beginchar(71,24/22size#,23/22size#,1/22size#); "pion bialy z 199";
  870.   currentpicture := white_circle 
  871.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  872.        + digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  873.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  874. showit;
  875. endchar;
  876.  
  877. % stop"";
  878.  
  879. beginchar(72,24/22size#,23/22size#,1/22size#); "pion bialy z 200";
  880.   currentpicture := white_circle 
  881.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  882.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  883.        + digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  884. showit;
  885. endchar;
  886.  
  887. % stop"";
  888.  
  889. beginchar(73,24/22size#,23/22size#,1/22size#); "pion bialy z 201";
  890.   currentpicture := white_circle 
  891.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  892.        + digit[0] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  893.        + digit[1] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  894. showit;
  895. endchar;
  896.  
  897. % stop"";
  898.  
  899. beginchar(74,24/22size#,23/22size#,1/22size#); "pion bialy z 202";
  900.   currentpicture := white_circle 
  901.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  902.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  903.        + digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  904. showit;
  905. endchar;
  906.  
  907. % stop"";
  908.  
  909. beginchar(75,24/22size#,23/22size#,1/22size#); "pion bialy z 203";
  910.   currentpicture := white_circle 
  911.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  912.        + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) 
  913.        + digit[3] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  914. showit;
  915. endchar;
  916.  
  917. % stop"";
  918.  
  919. beginchar(76,24/22size#,23/22size#,1/22size#); "pion bialy z 204";
  920.   currentpicture := white_circle 
  921.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  922.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  923.        + digit[4] shifted (.5w+.6dig_w,11/24w-.5dig_h);  
  924. showit;
  925. endchar;
  926.  
  927. % stop"";
  928.  
  929. beginchar(77,24/22size#,23/22size#,1/22size#); "pion bialy z 205";
  930.   currentpicture := white_circle 
  931.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  932.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  933.        + digit[5] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  934. showit;
  935. endchar;
  936.  
  937. % stop"";
  938.  
  939. beginchar(78,24/22size#,23/22size#,1/22size#); "pion bialy z 206";
  940.   currentpicture := white_circle 
  941.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  942.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  943.        + digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  944. showit;
  945. endchar;
  946.  
  947. % stop"";
  948.  
  949. beginchar(79,24/22size#,23/22size#,1/22size#); "pion bialy z 207";
  950.   currentpicture := white_circle 
  951.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  952.        + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h)
  953.        + digit[7] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  954. showit;
  955. endchar;
  956.  
  957. % stop"";
  958.  
  959. beginchar(80,24/22size#,23/22size#,1/22size#); "pion bialy z 208";
  960.   currentpicture := white_circle 
  961.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  962.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  963.        + digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  964. showit;
  965. endchar;
  966.  
  967. % stop"";
  968.  
  969. beginchar(81,24/22size#,23/22size#,1/22size#); "pion bialy z 209";
  970.   currentpicture := white_circle 
  971.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  972.        + digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h)
  973.        + digit[9] shifted (.5w+.65dig_w,11/24w-.5dig_h); 
  974. showit;
  975. endchar;
  976.  
  977. % stop"";
  978.  
  979. beginchar(82,24/22size#,23/22size#,1/22size#); "pion bialy z 210";
  980.   currentpicture := white_circle 
  981.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) 
  982.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  983.        + digit[0] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  984. showit;
  985. endchar;
  986.  
  987. % stop"";
  988.  
  989. beginchar(83,24/22size#,23/22size#,1/22size#); "pion bialy z 211";
  990.   currentpicture := white_circle 
  991.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  992.        + digit[1] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  993.        + digit[1] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  994. showit;
  995. endchar;
  996.  
  997. % stop"";
  998.  
  999. beginchar(84,24/22size#,23/22size#,1/22size#); "pion bialy z 212";
  1000.   currentpicture := white_circle 
  1001.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1002.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1003.        + digit[2] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1004. showit;
  1005. endchar;
  1006.  
  1007. % stop"";
  1008.  
  1009. beginchar(85,24/22size#,23/22size#,1/22size#); "pion bialy z 213";
  1010.   currentpicture := white_circle 
  1011.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1012.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1013.        + digit[3] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1014. showit;
  1015. endchar;
  1016.  
  1017. % stop"";
  1018.  
  1019. beginchar(86,24/22size#,23/22size#,1/22size#); "pion bialy z 214";
  1020.   currentpicture := white_circle 
  1021.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1022.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1023.        + digit[4] shifted (.5w+.4dig_w,11/24w-.5dig_h);  
  1024. showit;
  1025. endchar;
  1026.  
  1027. % stop"";
  1028.  
  1029. beginchar(87,24/22size#,23/22size#,1/22size#); "pion bialy z 215";
  1030.   currentpicture := white_circle 
  1031.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1032.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1033.        + digit[5] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1034. showit;
  1035. endchar;
  1036.  
  1037. % stop"";
  1038.  
  1039. beginchar(88,24/22size#,23/22size#,1/22size#); "pion bialy z 216";
  1040.   currentpicture := white_circle 
  1041.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1042.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1043.        + digit[6] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1044. showit;
  1045. endchar;
  1046.  
  1047. % stop"";
  1048.  
  1049. beginchar(89,24/22size#,23/22size#,1/22size#); "pion bialy z 217";
  1050.   currentpicture := white_circle 
  1051.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1052.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1053.        + digit[7] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1054. showit;
  1055. endchar;
  1056.  
  1057. % stop"";
  1058.  
  1059. beginchar(90,24/22size#,23/22size#,1/22size#); "pion bialy z 218";
  1060.   currentpicture := white_circle 
  1061.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1062.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1063.        + digit[8] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1064. showit;
  1065. endchar;
  1066.  
  1067. % stop"";
  1068.  
  1069. beginchar(91,24/22size#,23/22size#,1/22size#); "pion bialy z 219";
  1070.   currentpicture := white_circle 
  1071.        + digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1072.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1073.        + digit[9] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  1074. showit;
  1075. endchar;
  1076.  
  1077. % stop"";
  1078.  
  1079. beginchar(92,24/22size#,23/22size#,1/22size#); "pion bialy z 220";
  1080.   currentpicture := white_circle 
  1081.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1082.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1083.        + digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1084. showit;
  1085. endchar;
  1086.  
  1087. % stop"";
  1088.  
  1089. beginchar(93,24/22size#,23/22size#,1/22size#); "pion bialy z 221";
  1090.   currentpicture := white_circle 
  1091.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1092.        + digit[2] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1093.        + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1094. showit;
  1095. endchar;
  1096.  
  1097. % stop"";
  1098.  
  1099. beginchar(94,24/22size#,23/22size#,1/22size#); "pion bialy z 222";
  1100.   currentpicture := white_circle 
  1101.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1102.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1103.        + digit[2] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1104. showit;
  1105. endchar;
  1106.  
  1107. % stop"";
  1108.  
  1109. beginchar(95,24/22size#,23/22size#,1/22size#); "pion bialy z 223";
  1110.   currentpicture := white_circle 
  1111.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1112.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1113.        + digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1114. showit;
  1115. endchar;
  1116.  
  1117. % stop"";
  1118.  
  1119. beginchar(96,24/22size#,23/22size#,1/22size#); "pion bialy z 224";
  1120.   currentpicture := white_circle 
  1121.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1122.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1123.        + digit[4] shifted (.5w+.55dig_w,11/24w-.5dig_h);  
  1124. showit;
  1125. endchar;
  1126.  
  1127. % stop"";
  1128.  
  1129. beginchar(97,24/22size#,23/22size#,1/22size#); "pion bialy z 225";
  1130.   currentpicture := white_circle 
  1131.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1132.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1133.        + digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1134. showit;
  1135. endchar;
  1136.  
  1137. % stop"";
  1138.  
  1139. beginchar(98,24/22size#,23/22size#,1/22size#); "pion bialy z 226";
  1140.   currentpicture := white_circle 
  1141.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1142.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1143.        + digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1144. showit;
  1145. endchar;
  1146.  
  1147. % stop"";
  1148.  
  1149. beginchar(99,24/22size#,23/22size#,1/22size#); "pion bialy z 227";
  1150.   currentpicture := white_circle 
  1151.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1152.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1153.        + digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1154. showit;
  1155. endchar;
  1156.  
  1157. % stop"";
  1158.  
  1159. beginchar(100,24/22size#,23/22size#,1/22size#); "pion bialy z 228";
  1160.   currentpicture := white_circle 
  1161.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1162.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1163.        + digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1164. showit;
  1165. endchar;
  1166.  
  1167. % stop"";
  1168.  
  1169. beginchar(101,24/22size#,23/22size#,1/22size#); "pion bialy z 229";
  1170.   currentpicture := white_circle 
  1171.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1172.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1173.        + digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); 
  1174. showit;
  1175. endchar;
  1176.  
  1177. % stop"";
  1178.  
  1179. beginchar(102,24/22size#,23/22size#,1/22size#); "pion bialy z 230";
  1180.   currentpicture := white_circle 
  1181.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1182.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1183.        + digit[0] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1184. showit;
  1185. endchar;
  1186.  
  1187. % stop"";
  1188.  
  1189. beginchar(103,24/22size#,23/22size#,1/22size#); "pion bialy z 231";
  1190.   currentpicture := white_circle 
  1191.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1192.        + digit[3] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1193.        + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1194. showit;
  1195. endchar;
  1196.  
  1197. % stop"";
  1198.  
  1199. beginchar(104,24/22size#,23/22size#,1/22size#); "pion bialy z 232";
  1200.   currentpicture := white_circle 
  1201.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1202.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1203.        + digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1204. showit;
  1205. endchar;
  1206.  
  1207. % stop"";
  1208.  
  1209. beginchar(105,24/22size#,23/22size#,1/22size#); "pion bialy z 233";
  1210.   currentpicture := white_circle 
  1211.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1212.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1213.        + digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1214. showit;
  1215. endchar;
  1216.  
  1217. % stop"";
  1218.  
  1219. beginchar(106,24/22size#,23/22size#,1/22size#); "pion bialy z 234";
  1220.   currentpicture := white_circle 
  1221.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1222.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1223.        + digit[4] shifted (.5w+.65dig_w,11/24w-.5dig_h);  
  1224. showit;
  1225. endchar;
  1226.  
  1227. % stop"";
  1228.  
  1229. beginchar(107,24/22size#,23/22size#,1/22size#); "pion bialy z 235";
  1230.   currentpicture := white_circle 
  1231.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1232.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1233.        + digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1234. showit;
  1235. endchar;
  1236.  
  1237. % stop"";
  1238.  
  1239. beginchar(108,24/22size#,23/22size#,1/22size#); "pion bialy z 236";
  1240.   currentpicture := white_circle 
  1241.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1242.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1243.        + digit[6] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1244. showit;
  1245. endchar;
  1246.  
  1247. % stop"";
  1248.  
  1249. beginchar(109,24/22size#,23/22size#,1/22size#); "pion bialy z 237";
  1250.   currentpicture := white_circle 
  1251.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1252.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1253.        + digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1254. showit;
  1255. endchar;
  1256.  
  1257. % stop"";
  1258.  
  1259. beginchar(110,24/22size#,23/22size#,1/22size#); "pion bialy z 238";
  1260.   currentpicture := white_circle 
  1261.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1262.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1263.        + digit[8] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1264. showit;
  1265. endchar;
  1266.  
  1267. % stop"";
  1268.  
  1269. beginchar(111,24/22size#,23/22size#,1/22size#); "pion bialy z 239";
  1270.   currentpicture := white_circle 
  1271.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1272.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1273.        + digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); 
  1274. showit;
  1275. endchar;
  1276.  
  1277. % stop"";
  1278.  
  1279. beginchar(112,24/22size#,23/22size#,1/22size#); "pion bialy z 240";
  1280.   currentpicture := white_circle 
  1281.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1282.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1283.        + digit[0] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1284. showit;
  1285. endchar;
  1286.  
  1287. % stop"";
  1288.  
  1289. beginchar(113,24/22size#,23/22size#,1/22size#); "pion bialy z 241";
  1290.   currentpicture := white_circle 
  1291.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1292.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1293.        + digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1294. showit;
  1295. endchar;
  1296.  
  1297. % stop"";
  1298.  
  1299. beginchar(114,24/22size#,23/22size#,1/22size#); "pion bialy z 242";
  1300.   currentpicture := white_circle 
  1301.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1302.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1303.        + digit[2] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1304. showit;
  1305. endchar;
  1306.  
  1307. % stop"";
  1308.  
  1309. beginchar(115,24/22size#,23/22size#,1/22size#); "pion bialy z 243";
  1310.   currentpicture := white_circle 
  1311.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1312.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1313.        + digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1314. showit;
  1315. endchar;
  1316.  
  1317. % stop"";
  1318.  
  1319. beginchar(116,24/22size#,23/22size#,1/22size#); "pion bialy z 244";
  1320.   currentpicture := white_circle 
  1321.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1322.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1323.        + digit[4] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1324. showit;
  1325. endchar;
  1326.  
  1327. % stop"";
  1328.  
  1329. beginchar(117,24/22size#,23/22size#,1/22size#); "pion bialy z 245";
  1330.   currentpicture := white_circle 
  1331.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1332.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1333.        + digit[5] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1334. showit;
  1335. endchar;
  1336.  
  1337. % stop"";
  1338.  
  1339. beginchar(118,24/22size#,23/22size#,1/22size#); "pion bialy z 246";
  1340.   currentpicture := white_circle 
  1341.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1342.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1343.        + digit[6] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1344. showit;
  1345. endchar;
  1346.  
  1347. % stop"";
  1348.  
  1349. beginchar(119,24/22size#,23/22size#,1/22size#); "pion bialy z 247";
  1350.   currentpicture := white_circle 
  1351.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1352.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1353.        + digit[7] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1354. showit;
  1355. endchar;
  1356.  
  1357. % stop"";
  1358.  
  1359. beginchar(120,24/22size#,23/22size#,1/22size#); "pion bialy z 248";
  1360.   currentpicture := white_circle 
  1361.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1362.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1363.        + digit[8] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1364. showit;
  1365. endchar;
  1366.  
  1367. % stop"";
  1368.  
  1369. beginchar(121,24/22size#,23/22size#,1/22size#); "pion bialy z 249";
  1370.   currentpicture := white_circle 
  1371.        + digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1372.        + digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1373.        + digit[9] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1374. showit;
  1375. endchar;
  1376.  
  1377. % stop"";
  1378.  
  1379. beginchar(122,24/22size#,23/22size#,1/22size#); "pion bialy z 250";
  1380.   currentpicture := white_circle 
  1381.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1382.        + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1383.        + digit[0] shifted (.5w+.8dig_w,11/24w-.5dig_h);
  1384. showit;
  1385. endchar;
  1386.  
  1387. % stop"";
  1388.  
  1389. beginchar(123,24/22size#,23/22size#,1/22size#); "pion bialy z 251";
  1390.   currentpicture := white_circle 
  1391.        + digit[2] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1392.        + digit[5] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1393.        + digit[1] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1394. showit;
  1395. endchar;
  1396.  
  1397. % stop"";
  1398.  
  1399. beginchar(124,24/22size#,23/22size#,1/22size#); "pion bialy z 252";
  1400.   currentpicture := white_circle 
  1401.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1402.        + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1403.        + digit[2] shifted (.5w+.8dig_w,11/24w-.5dig_h);
  1404. showit;
  1405. endchar;
  1406.  
  1407. % stop"";
  1408.  
  1409. beginchar(125,24/22size#,23/22size#,1/22size#); "pion bialy z 253";
  1410.   currentpicture := white_circle 
  1411.        + digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1412.        + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1413.        + digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1414. showit;
  1415. endchar;
  1416.  
  1417. % stop"";
  1418.  
  1419. %%%%%%%%%%%%%%%%%%%%%% other symbols %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1420.  
  1421. beginchar(126,24/22size#,23/22size#,1/22size#); "pion bialy z kwadratem";
  1422.   pickup pencircle scaled line_thickness;
  1423.   z1=(.5w+.32size,11/24w+.32size);
  1424.   z2=(.5w+.32size,11/24w-.32size);
  1425.   z3=(.5w-.32size,11/24w-.32size);
  1426.   z4=(.5w-.32size,11/24w+.32size);
  1427.   draw z1--z2--z3--z4--cycle;  
  1428.   addto currentpicture also white_circle;
  1429. showit;
  1430. endchar;
  1431.  
  1432. % stop"";
  1433.  
  1434. beginchar(127,24/22size#,23/22size#,1/22size#); "pion bialy z trojkatem";
  1435.   pickup pencircle scaled line_thickness;
  1436.   lft x1=.08size+1/24w; bot y1=.24size;
  1437.   x2=.5w; top y2=.98size;
  1438.   rt x3=.92size+1/24w; bot y3=.24size;
  1439.   draw z1--z2--z3--cycle;
  1440.   addto currentpicture also white_circle;
  1441. showit;
  1442. endchar;
  1443.  
  1444. % stop"";
  1445.  
  1446. end;
  1447.  
  1448.